home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / f+m adressdatei (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  3.1 KB  |  149 lines
  1. 10 rem    dateiverwaltung
  2. 20 rem  mit dem f+m manager
  3. 30 :
  4. 100 (NULL)(1270)
  5. 110 si=54272:pokesi+3,8:pokesi+10,8:pokesi+24,15
  6. 120 gosub1160
  7. 130 :
  8. 140 print"[147]"chr$(142)(NULL)(12,4)"adress-verwaltung"
  9. 150 printtab(11)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  10. 160 printtab(11)"1. daten bearbeiten"
  11. 170 printtab(11)"2. datei anlegen"
  12. 180 printtab(11)"3. directory"
  13. 190 printtab(11)"4. diskbefehl/status"
  14. 200 printtab(11)"5. ende"
  15. 210 printtab(11)"ihre wahl ? ";
  16. 220 (NULL)a$,"12345"
  17. 230 on val(a$)goto 270,800,970,1040,1510
  18. 240 rem
  19. 250 rem   daten bearbeiten
  20. 260 rem
  21. 270 re = 1
  22. 280 print"[147]"tab(12)"daten bearbeiten"
  23. 290 print"  welche datei soll bearbeitet werden ?"
  24. 300 print"  name  [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166] -> f1"
  25. 310 gosub1520:gosub1530
  26. 320 s0$="adressen"
  27. 330 (NULL)2:(NULL):(NULL)3
  28. 340 ifs0$=""goto140
  29. 350 (NULL) s0$:s0$="l"
  30. 360 ar=asc(left$(in$,1))+256*asc(mid$(in$,2,1))
  31. 370 gosub480:gosub1220
  32. 380 gosub1390:(NULL)
  33. 390 be$=left$(s0$,1)
  34. 400 if be$="l"then:re=abs(val(s1$)):gosub480:goto380
  35. 410 if be$="s"then:re=abs(val(s1$)):gosub530:goto380
  36. 420 if be$="q"then:(NULL):run
  37. 430 if be$="f"then590
  38. 440 goto 380
  39. 450 :
  40. 460 :
  41. 470 :
  42. 480 fort=1to8:(NULL) re,t,s$(t-1):next
  43. 490 s2$=s$(0):s3$=s$(1):s4$=s$(2)
  44. 500 s5$=s$(3):s6$=s$(4):s7$=s$(5)
  45. 510 s8$=s$(6):s9$=s$(7):s1$=str$(re)
  46. 520 return
  47. 530 gosub 730
  48. 540 fort=1to8:(NULL) re,t,s$(t-1):next
  49. 550 return
  50. 560 :
  51. 570 :
  52. 580 :
  53. 590 fe=val(right$(s0$,1))
  54. 600 iffe=0thenfe=1
  55. 610 gosub730
  56. 620 f$=s$(fe-1)
  57. 630 for i=1toar:print(NULL)(13,4)"    [157][157][157][157]";i
  58. 640 (NULL) i,fe,a$
  59. 650 iff$<>left$(a$,len(f$))then next
  60. 660 re=i:gosub480:gosub1390:(NULL)
  61. 670 print(NULL)(10,24)"weiter suchen (j/n) ?[157]";
  62. 680 (NULL) a$,"jn"
  63. 690 if a$="j"then next:goto370
  64. 700 i=ar : next
  65. 710 goto380
  66. 720 :
  67. 730 s$(0)=s2$:s$(1)=s3$:s$(2)=s4$
  68. 740 s$(3)=s5$:s$(4)=s6$:s$(5)=s7$
  69. 750 s$(6)=s8$:s$(7)=s9$
  70. 760 return
  71. 770 rem
  72. 780 rem   datei anlegen
  73. 790 rem
  74. 800 print"[147]"tab(12)"datei anlegen"
  75. 810 printtab(4)"name der datei :[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
  76. 820 printtab(4)"anzahl der datensaetze :[168][168][168][168]:"
  77. 830 printtab(4)"(maximal 1285 datensaetze)"
  78. 840 gosub1520:gosub1530
  79. 850 s0$="adressen":s1$="50"
  80. 860 (NULL)
  81. 870 if len(s0$)=0orval(s1$)=0thenrun
  82. 880 (NULL) "i"
  83. 890 (NULL)s0$,8,16,16,20,16,4,12,10,20,val(s1$)
  84. 900 (NULL) : if left$(ds$,1)="0"thenrun
  85. 910 print"disk fehler ":print""ds$
  86. 920 (NULL)a$
  87. 930 run
  88. 940 rem
  89. 950 rem   directory lesen
  90. 960 rem
  91. 970 print"[147]"
  92. 980 (NULL)
  93. 990 (NULL)a$
  94. 1000 run
  95. 1010 rem
  96. 1020 rem   diskbefehl
  97. 1030 rem
  98. 1040 print"[147]  diskbefehl / status mit leereingabe"
  99. 1050 print" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  100. 1055 gosub1530
  101. 1060 (NULL)
  102. 1070 if s0$=""then1090
  103. 1080 (NULL) s0$
  104. 1090 (NULL)
  105. 1100 print:printds$
  106. 1110 (NULL)a$
  107. 1120 run
  108. 1130 end
  109. 1140 rem  sound
  110. 1150 rem
  111. 1160 pokesi+4,0:pokesi+11,0
  112. 1170 pokesi,75:pokesi+1,34:pokesi+5,10:pokesi+6,0:pokesi+4,65
  113. 1180 fork=1to300:next
  114. 1190 pokesi+7,177:pokesi+8,25:pokesi+12,10:pokesi+13,0:pokesi+11,65
  115. 1200 return
  116. 1210 :
  117. 1220 :
  118. 1230 pokesi,75:pokesi+1,34:poke54277,10:poke54278,0
  119. 1240 fori=1to4:pokesi+4,64:pokesi+4,65:fork=0to200:next:next
  120. 1250 return
  121. 1260 :
  122. 1270 ifpeek(2)<>33then1290
  123. 1280 print(NULL)(7,24)"datensatz existiert nicht! ";:goto1300
  124. 1290 print(NULL)(2,23)"disk error:";ds$;:(NULL)a$:goto140
  125. 1300 pokesi+4,0:pokesi+5,0:pokesi+6,245:pokesi+4,33
  126. 1310 fort=10to0step-2:forr=1to3:fori=12to8step-1:pokesi+1,r*i+t:nexti,r,t
  127. 1320 pokesi+4,0
  128. 1330 (NULL)a$
  129. 1340 goto380
  130. 1350 :
  131. 1360 rem
  132. 1370 rem
  133. 1380 rem
  134. 1390 print"[147] befehl      [166][166]    ausfuehren -> f1"
  135. 1400 print" datensatz#  [168][168][168][168]"
  136. 1410 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  137. 1420 print"1) vorname     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  138. 1430 print"2) nachname    [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  139. 1440 print"3) strasse     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]:"
  140. 1450 print"4) wohnort     [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  141. 1460 print"5) plz         [168][168][168][168]"
  142. 1470 print"6) telefon     [168][168][168][168][168][168][168][168][168][168][168][168]"
  143. 1480 print"7) geburtstag  [168][168][168][168][168][168][168][168][168][168]"
  144. 1490 print"8) bemerkung   [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  145. 1500 return
  146. 1510 print"[147]";:(NULL)"i":end
  147. 1520 print"       zurueck mit leereingabe":return
  148. 1530 print"      eingabe bestaetigen mit f1":return
  149.